home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
tridv1.zip
/
EXAMPLE.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1990-12-19
|
2KB
|
69 lines
program example_using_TriDoor;
{**************************************************************************
This odd little program does it' s best to show you some of the
applications of some of the commands made available to you through
TriDoor.
And just to show you how easy it is, (and why this is such a strange
example) I wrote this in about 2 minutes at 1:43 AM on 28-Nov-1990.
!! This is a compilable program !!
**************************************************************************}
uses
tridr55u; { the TriDoor unit! }
{ dos, } { not necessary, but you can add other units, too. }
{ crt; }
var
instr : string;
wait : char;
begin
{ setup; } { setup is already done in non-registered versions }
caps := false; { make sure capitals and code are off }
code := false;
print('Welcome to the test Door!||||'); { |||| = double CR }
print('Please enter your name : ');
instr := getinput(35);
ansi := true;
print('||You entered '+instr+'||');
print('Which is '+ucase(instr)+' in capitals.||||');
if aysure('Are you sure that this is your name') then
print('||Good. Because I was not going to let you change it anyway.||||')
else print('Tough. Suffer with it that way.||||');
print('||Now enter thw two-letter abbreviation for your state : ');
caps := true; { turn forced capitals on }
instr := getinput(2);
writeln;
writeln(' SysOp : You can see this, user cannot! ');
print('||User : The SysOp just saw something that you did not, but||');
print(' he can see this very well.||||');
sysmessage('You will see stars as the user or you type in normal text.');
print('Enter your password-to-be : ');
code := true; { turn *'s on }
instr := getinput(8);
print('||||You chose the password : '+instr+'.||||');
print('||Press any key to end this silliness... ');
wait := getkey;
end.